VERSION 5.00
Begin VB.Form frmTest 
   Caption         =   "VB Stack Test"
   ClientHeight    =   5940
   ClientLeft      =   120
   ClientTop       =   450
   ClientWidth     =   3195
   LinkTopic       =   "Form1"
   ScaleHeight     =   5940
   ScaleWidth      =   3195
   StartUpPosition =   3  'Windows Default
   Begin VB.Frame fmeStats 
      Caption         =   "Stack Information"
      Height          =   4695
      Left            =   120
      TabIndex        =   3
      Top             =   1080
      Width           =   2895
      Begin VB.ListBox lstItems 
         Height          =   2790
         Left            =   120
         TabIndex        =   4
         Top             =   1800
         Width           =   2655
      End
      Begin VB.Label lblNumItems 
         AutoSize        =   -1  'True
         Caption         =   "_____"
         Height          =   195
         Left            =   1440
         TabIndex        =   9
         Top             =   600
         Width           =   450
      End
      Begin VB.Label lblNumItemsLabel 
         AutoSize        =   -1  'True
         Caption         =   "Number of Items:"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   600
         Width           =   1200
      End
      Begin VB.Label lblPeekedData 
         AutoSize        =   -1  'True
         Caption         =   "_________"
         Height          =   195
         Left            =   1200
         TabIndex        =   7
         Top             =   1200
         Width           =   1530
      End
      Begin VB.Label lblPeekDataLabel 
         AutoSize        =   -1  'True
         Caption         =   "Peeked String:"
         Height          =   195
         Left            =   120
         TabIndex        =   6
         Top             =   1200
         Width           =   1050
      End
      Begin VB.Label lblItems 
         AutoSize        =   -1  'True
         Caption         =   "Items in the stack:"
         Height          =   195
         Left            =   120
         TabIndex        =   5
         Top             =   1560
         Width           =   1290
      End
   End
   Begin VB.CommandButton cmdPop 
      Caption         =   "Pop"
      Height          =   375
      Left            =   1800
      TabIndex        =   2
      Top             =   480
      Width           =   1215
   End
   Begin VB.CommandButton cmdPush 
      Caption         =   "push"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   1215
   End
   Begin VB.TextBox txtAddItem 
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Text            =   "txtAddItem"
      Top             =   120
      Width           =   2895
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_Load()
initializeForm
End Sub

Private Sub initializeForm()
txtAddItem.Text = vbNullString
lstItems.Clear
End Sub



Private Sub tmrInterfaceUpdate_Timer()
updateInterface
End Sub

Private Sub updateInterface()
updatePushButton
End Sub

Private Sub txtAddItem_Change()
If txtAddItem.Text = vbNullString Then
    cmdPush.Enabled = False
Else
    cmdPush.Enabled = True
End If
End Sub
